home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 096 / rbbsbugs.arc / SNOOP.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1986-01-13  |  640 b   |  23 lines
  1. 5  ON ERROR GOTO 200
  2. 10  CLS
  3. 20  PRINT "THIS SIMPLE PROGRAM WILL FIX THE SNOOP PROBLEM THAT YOU MAY"
  4. 30  PRINT "BE EXPERIENCING WITH RBBS-PC CPC13-1A."
  5. 40  PRINT
  6. 50  INPUT "ENTER NAME OF YOUR MESSAGE FILE ";MSG.NAME$
  7. 60  NAME MSG.NAME$ AS MSG.NAME$
  8. 70  INPUT "ENTER NODE RECORD TO FIX ";NODE.TO.FIX%
  9. 80  OPEN "R",1,MSG.NAME$
  10. 90  FIELD #1,128 AS REC1$
  11. 100  GET 1,NODE.TO.FIX%
  12. 110  MID$(REC1$,58,2)="-1"
  13. 120  PUT 1,NODE.TO.FIX%
  14. 130  PRINT
  15. 140  INPUT "DO YOU WANT TO FIX ANOTHER NODE ";ANS$
  16. 150  IF LEFT$(ANS$,1) = "Y" OR LEFT$(ANS$,1) = "y" THEN CLOSE:GOTO 70
  17. 160  CLOSE
  18. 170  STOP
  19. 200  IF ERR = 58 THEN RESUME 70
  20. 210  PRINT "FILE DOES NOT EXIST.  TRY AGAIN"
  21. 220  FOR X=1 TO 5000:NEXT
  22. 230  RESUME 5
  23.